home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1997 January: Mac OS SDK / Dev.CD Jan 97 SDK1.toast / Development Kits (Disc 1) / AppleScript / Development Tools / Interfaces / AppleScript 1.1 Interfaces / AIncludes / ASRegistry.a < prev    next >
Encoding:
Text File  |  1994-04-07  |  6.7 KB  |  250 lines  |  [TEXT/MPS ]
  1. ;////////////////////////////////////////////////////////////////////////////////
  2. ;// Copyright © 1993-1994 Apple Computer, Inc. All rights reserved.
  3. ;////////////////////////////////////////////////////////////////////////////////
  4. ;// AppleScript Registry constants
  5. ;////////////////////////////////////////////////////////////////////////////////
  6.  
  7.  IF &TYPE('__INCLUDINGASREGISTRY__') = 'UNDEFINED' THEN
  8. __INCLUDINGTRAPS__ SET 1
  9.  
  10.  IF &TYPE('__INCLUDINGAEREGISTRY__') = 'UNDEFINED' THEN
  11.  INCLUDE 'AERegistry.a'
  12.  ENDIF
  13.  
  14. kASCommentEvent                EQU    'cmnt'
  15.  
  16. keyAETarget                    EQU    'targ'
  17. keySubjectAttr                EQU    'subj'
  18. ;// Magic 'returning' parameter:
  19. keyASReturning                EQU    'Krtn'
  20. ;// AppleScript Specific Codes:
  21. kASAppleScriptSuite            EQU    'ascr'
  22. kASTypeNamesSuite            EQU    'tpnm'
  23. ;// dynamic terminologies
  24. typeAETE                    EQU    'aete'
  25. typeAEUT                    EQU    'aeut'
  26. kGetAETE                    EQU    'gdte'
  27. kGetAEUT                    EQU    'gdut'
  28. kUpdateAEUT                    EQU    'udut'
  29. kUpdateAETE                    EQU    'udte'
  30. kCleanUpAEUT                EQU    'cdut'
  31. kASComment                    EQU    'cmnt'
  32. kASLaunchEvent                EQU    'noop'
  33. keyScszResource                EQU    'scsz'
  34. typeScszResource            EQU    'scsz'
  35. ;// subroutine calls
  36. kASSubroutineEvent            EQU    'psbr'
  37. keyASSubroutineName            EQU    'snam'
  38.  
  39.  
  40. ;// Operator Events:
  41.  
  42. ;//     Binary:
  43. kASAdd                        EQU    '+   '
  44. kASSubtract                    EQU    '-   '
  45. kASMultiply                    EQU    '*   '
  46. kASDivide                    EQU    '/   '
  47. kASQuotient                    EQU    'div '
  48. kASRemainder                EQU    'mod '
  49. kASPower                    EQU    '^   '
  50. kASEqual                    EQU    kAEEquals
  51. kASNotEqual                    EQU    '≠   '
  52. kASGreaterThan                EQU    kAEGreaterThan
  53. kASGreaterThanOrEqual        EQU    kAEGreaterThanEquals
  54. kASLessThan                    EQU    kAELessThan
  55. kASLessThanOrEqual            EQU    kAELessThanEquals
  56. kASComesBefore                EQU    'cbfr'
  57. kASComesAfter                EQU    'cafr'
  58. kASConcatenate                EQU    'ccat'
  59. kASStartsWith                EQU    kAEBeginsWith
  60. kASEndsWith                    EQU    kAEEndsWith
  61. kASContains                    EQU    kAEContains
  62. kASAnd                        EQU    'AND '
  63. kASOr                        EQU    'OR  '
  64. ;// Unary:
  65. kASNot                        EQU    'NOT '
  66. kASNegate                    EQU    'neg '
  67. keyASArg                    EQU    'arg '
  68. ;// event code for the 'error' statement
  69. kASErrorEventCode            EQU    'err '
  70. kOSAErrorArgs                EQU    'erra'
  71. ;// Properties:
  72. pLength                        EQU    'leng'
  73. pReverse                    EQU    'rvse'
  74. pRest                        EQU    'rest'
  75. pInherits                    EQU    'c@#^'
  76. ;// User-Defined Record Fields:
  77. keyASUserRecordFields        EQU    'usrf'
  78. typeUserRecordFields        EQU    'list'
  79.  
  80.  
  81. ;// Prepositions:
  82.  
  83. keyASPrepositionAt            EQU    'at  '
  84. keyASPrepositionIn            EQU    'in  '
  85. keyASPrepositionFrom        EQU    'from'
  86. keyASPrepositionFor            EQU    'for '
  87. keyASPrepositionTo            EQU    'to  '
  88. keyASPrepositionThru        EQU    'thru'
  89. keyASPrepositionThrough        EQU    'thgh'
  90. keyASPrepositionBy            EQU    'by  '
  91. keyASPrepositionOn            EQU    'on  '
  92. keyASPrepositionInto        EQU    'into'
  93. keyASPrepositionOnto        EQU    'onto'
  94. keyASPrepositionBetween        EQU    'btwn'
  95. keyASPrepositionAgainst        EQU    'agst'
  96. keyASPrepositionOutOf        EQU    'outo'
  97. keyASPrepositionInsteadOf    EQU    'isto'
  98. keyASPrepositionAsideFrom    EQU    'asdf'
  99. keyASPrepositionAround        EQU    'arnd'
  100. keyASPrepositionBeside        EQU    'bsid'
  101. keyASPrepositionBeneath        EQU    'bnth'
  102. keyASPrepositionUnder        EQU    'undr'
  103. keyASPrepositionOver        EQU    'over'
  104. keyASPrepositionAbove        EQU    'abve'
  105. keyASPrepositionBelow        EQU    'belw'
  106. keyASPrepositionApartFrom    EQU    'aprt'
  107. keyASPrepositionGiven        EQU    'givn'
  108. keyASPrepositionWith        EQU    'with'
  109. keyASPrepositionWithout        EQU    'wout'
  110. keyASPrepositionAbout        EQU    'abou'
  111. keyASPrepositionSince        EQU    'snce'
  112. keyASPrepositionUntil        EQU    'till'
  113.  
  114. ;// Terminology & Dialect things:
  115. kDialectBundleResType        EQU    'Dbdl'
  116. ;// AppleScript Classes and Enums:
  117. cConstant                    EQU    'enum'
  118. cClassIdentifier            EQU    pClass
  119. cObjectBeingExamined        EQU    'exmn'
  120. cList                        EQU    'list'
  121. cSmallReal                    EQU    'sing'
  122. cReal                        EQU    'doub'
  123. cRecord                        EQU    'reco'
  124. cReference                    EQU    cObjectSpecifier
  125. cUndefined                    EQU    'undf'
  126. cSymbol                        EQU    'symb'
  127. cLinkedList                    EQU    'llst'
  128. cVector                        EQU    'vect'
  129. cEventIdentifier            EQU    'evnt'
  130. cKeyIdentifier                EQU    'kyid'
  131. cUserIdentifier                EQU    'uid '
  132. cPreposition                EQU    'prep'
  133. cKeyForm                    EQU    enumKeyForm
  134. cScript                        EQU    'scpt'
  135. cHandler                    EQU    'hand'
  136. cProcedure                    EQU    'proc'
  137. cClosure                    EQU    'clsr'
  138. cRawData                    EQU    'rdat'
  139. cString                        EQU    'TEXT'
  140. cNumber                        EQU    'nmbr'
  141. cListOrRecord                EQU    'lr  '
  142. cListOrString                EQU    'ls  '
  143. cListRecordOrString            EQU    'lrs '
  144. cNumberOrDateTime            EQU    'nd  '
  145. cNumberDateTimeOrString        EQU    'nds '
  146. cSeconds                    EQU    'scnd'
  147. enumBooleanValues            EQU    'boov'
  148. kAETrue                        EQU    'true'
  149. kAEFalse                    EQU    'fals'
  150. enumMiscValues                EQU    'misc'
  151. kASCurrentApplication        EQU    'cura'
  152. ;// User-defined property ospecs:
  153. formUserPropertyID            EQU    'usrp'
  154.  
  155. ;// Global properties:
  156. pASIt                        EQU    'it  '
  157. pASMe                        EQU    'me  '
  158. pASResult                    EQU    'rslt'
  159. pASSpace                    EQU    'spac'
  160. pASReturn                    EQU    'ret '
  161. pASTab                        EQU    'tab '
  162. pASPi                        EQU    'pi  '
  163. pASParent                    EQU    'pare'
  164. kASInitializeEventCode        EQU    'init'
  165. pASPrintLength                EQU    'prln'
  166. pASPrintDepth                EQU    'prdp'
  167. pASTopLevelScript            EQU    'ascr'
  168.  
  169. ;// Considerations
  170. kAECase                        EQU    'case'
  171. kAEDiacritic                EQU    'diac'
  172. kAEWhiteSpace                EQU    'whit'
  173. kAEHyphens                    EQU    'hyph'
  174. kAEExpansion                EQU    'expa'
  175. kAEPunctuation                EQU    'punc'
  176. kAEZenkakuHankaku            EQU    'zkhk'
  177. kAESmallKana                EQU    'skna'
  178. kAEKataHiragana                EQU    'hika'
  179. ;// AppleScript considerations:
  180. kASConsiderReplies            EQU    'rmte'
  181. enumConsiderations            EQU    'cons'
  182. cCoercion                    EQU    'coec'
  183. cCoerceUpperCase            EQU    'txup'
  184. cCoerceLowerCase            EQU    'txlo'
  185. cCoerceRemoveDiacriticals    EQU    'txdc'
  186. cCoerceRemovePunctuation    EQU    'txpc'
  187. cCoerceRemoveHyphens        EQU    'txhy'
  188. cCoerceOneByteToTwoByte        EQU    'txex'
  189. cCoerceRemoveWhiteSpace        EQU    'txws'
  190. cCoerceSmallKana            EQU    'txsk'
  191. cCoerceZenkakuhankaku        EQU    'txze'
  192. cCoerceKataHiragana            EQU    'txkh'
  193. ;// Lorax things:
  194. cZone                        EQU    'zone'
  195. cMachine                    EQU    'mach'
  196. cAddress                    EQU    'addr'
  197. cRunningAddress                EQU    'radd'
  198. cStorage                    EQU    'stor'
  199.  
  200. ;// DateTime things:
  201. pASWeekday                    EQU    'wkdy'
  202. pASMonth                    EQU    'mnth'
  203. pASDay                        EQU    'day '
  204. pASYear                        EQU    'year'
  205. pASTime                        EQU    'time'
  206. pASDateString                EQU    'dstr'
  207. pASTimeString                EQU    'tstr'
  208. ;// Months
  209. cMonth                        EQU    pASMonth
  210. cJanuary                    EQU    'jan '
  211. cFebruary                    EQU    'feb '
  212. cMarch                        EQU    'mar '
  213. cApril                        EQU    'apr '
  214. cMay                        EQU    'may '
  215. cJune                        EQU    'jun '
  216. cJuly                        EQU    'jul '
  217. cAugust                        EQU    'aug '
  218. cSeptember                    EQU    'sep '
  219. cOctober                    EQU    'oct '
  220. cNovember                    EQU    'nov '
  221. cDecember                    EQU    'dec '
  222.  
  223. ;// Weekdays
  224. cWeekday                    EQU    pASWeekday
  225. cSunday                        EQU    'sun '
  226. cMonday                        EQU    'mon '
  227. cTuesday                    EQU    'tue '
  228. cWednesday                    EQU    'wed '
  229. cThursday                    EQU    'thu '
  230. cFriday                        EQU    'fri '
  231. cSaturday                    EQU    'sat '
  232. ;// AS 1.1 Globals:
  233. pASQuote                    EQU    'quot'
  234. pASSeconds                    EQU    'secs'
  235. pASMinutes                    EQU    'min '
  236. pASHours                    EQU    'hour'
  237. pASDays                        EQU    'days'
  238. pASWeeks                    EQU    'week'
  239. ;// Writing Code things:
  240. cWritingCodeInfo            EQU    'citl'
  241. pScriptCode                    EQU    'pscd'
  242. pLangCode                    EQU    'plcd'
  243. ;// Magic Tell and End Tell events for logging:
  244. kASMagicTellEvent            EQU    'tell'
  245. kASMagicEndTellEvent        EQU    'tend'
  246.  
  247. ;////////////////////////////////////////////////////////////////////////////////
  248.  ENDIF
  249. ;////////////////////////////////////////////////////////////////////////////////
  250.